home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 19 / Tiger_Disk_019_19xx_Tiger-Crew-Disk_de_Side_A.d64 / zahlen rechts (.txt) < prev   
Encoding:
Commodore BASIC  |  1990-01-01  |  293 b   |  8 lines
  1. 10 a=3 : rem anzahl vorkommastellen
  2. 20 b=3 : rem anzahl nachkommastellen
  3. 30 fory=1to10:readx(y):next
  4. 40 print"[147]zahlen 'rechtsbuendig'"
  5. 50 fory=1to10:printtab(a-(int(log(x(y))/log(10))));int(x(y)*10^b)/10^b:next
  6. 60 print"taste!":poke198,0:wait198,1:list-50
  7. 70 data20.345,123.67,9.4,195.43,999.99999,13.654,274.19,75.75,869.1,2.47
  8.